home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / toolboxControl.sim < prev    next >
Encoding:
Text File  |  1989-04-08  |  6.7 KB  |  209 lines  |  [TEXT/MPS ]
  1. %    {for Control Manager}
  2. %
  3. %    ControlPtr = ^ControlRecord;
  4. %
  5. %    ControlRecord = PACKED RECORD
  6. %                    nextControl: ControlHandle;
  7. %                    contrlOwner: WindowPtr;
  8. %                    contrlRect: Rect;
  9. %                    contrlVis: Byte;
  10. %                    contrlHilite: Byte;
  11. %                    contrlValue: INTEGER;
  12. %                    contrlMin: INTEGER;
  13. %                    contrlMax: INTEGER;
  14. %                    contrlDefProc: Handle;
  15. %                    contrlData: Handle;
  16. %                    contrlAction: ProcPtr;
  17. %                    contrlrfCon: LONGINT;
  18. %                    contrlTitle: Str255;
  19. %                    END; {ControlRecord}
  20.  
  21. class toolboxcontrol;
  22. begin
  23.  
  24.  
  25. %    FUNCTION NewControl(curWindow: WindowPtr; boundsRect: Rect; title: Str255;
  26. %                    visible: BOOLEAN; value: INTEGER; min: INTEGER;
  27. %                    max: INTEGER; contrlProc: INTEGER;
  28. %                    refCon: LONGINT): ControlHandle;
  29.     external toolbox procedure x="$A954" is
  30.         INTEGER PROCEDURE ToolboxNewControl(curWindow, boundsRect, title,
  31.                     visible, x_value, min, max, contrlProc,refCon);
  32.                     value title;
  33.                     name boundsrect;
  34.                     integer curWindow;
  35.                     short integer boundsRect;
  36.                     text title;
  37.                     boolean visible;
  38.                     short integer x_value, min, max;
  39.                     short integer contrlProc;
  40.                     integer refCon;;
  41.  
  42. %    PROCEDURE DisposeControl(theControl: ControlHandle);
  43.     external toolbox procedure x="$A955" is
  44.     PROCEDURE ToolboxDisposeControl(theControl);
  45.         integer theControl;;
  46.  
  47. %    PROCEDURE KillControls(theWindow: WindowPtr);
  48.     external toolbox procedure x="$A956" is
  49.     PROCEDURE ToolboxKillControls(theWindow);
  50.         integer theWindow;;
  51.  
  52. %    PROCEDURE MoveControl(theControl: ControlHandle; h, v: INTEGER);
  53.     external toolbox procedure x="$A959" is
  54.     PROCEDURE ToolboxMoveControl(theControl, h, v);
  55.         integer theControl; short integer h,v;;
  56.  
  57. %    PROCEDURE SizeControl(theControl: ControlHandle; w, h: INTEGER);
  58.     external toolbox procedure x="$A95C" is
  59.     PROCEDURE ToolboxSizeControl(theControl, w, h);
  60.         integer theControl; short integer h,w;;
  61.  
  62. %    PROCEDURE DragControl(theControl: ControlHandle; startPt: Point; bounds: Rect;
  63. %                    slopRect:rect, axis:integer);
  64.     external toolbox procedure x="$A967" is
  65.     PROCEDURE ToolboxDragControl(theControl, startPt_h, startPt_v, bounds,
  66.                     slopRect, axis);
  67.                     name bounds, slopRect;
  68.                     integer theControl; 
  69.                     short integer startPt_h, startPt_v;
  70.                     short integer bounds, slopRect;
  71.                     short integer axis;;
  72.  
  73. %    PROCEDURE ShowControl(theControl: ControlHandle);
  74.     external toolbox procedure x="$A957" is
  75.     PROCEDURE ToolboxShowControl(theControl);
  76.         integer theControl;;
  77.  
  78. %    PROCEDURE HideControl(theControl: ControlHandle);
  79.     external toolbox procedure x="$A958" is
  80.     PROCEDURE ToolboxHideControl(theControl);
  81.         integer theControl;;
  82.  
  83. %    PROCEDURE SetCTitle(theControl: ControlHandle; title: Str255);
  84.     external toolbox procedure x="$A95F" is
  85.     PROCEDURE ToolboxSetCTitle(theControl, title);
  86.         value title;
  87.         integer theControl;
  88.         text title;;
  89.  
  90. %    PROCEDURE GetCTitle(theControl: ControlHandle; VAR title: Str255);
  91.     external toolbox procedure x="$A95E" is
  92.     PROCEDURE ToolboxGetCTitle(theControl, title);
  93.         name title;
  94.         integer theControl;
  95.         text title;;
  96.  
  97. %    PROCEDURE HiliteControl(theControl: ControlHandle; hiliteState: INTEGER);
  98.     external toolbox procedure x="$A95D" is
  99.     PROCEDURE ToolboxHiliteControl(theControl, hiliteState);
  100.         integer theControl;
  101.         short integer hiliteState;;
  102.  
  103. %    PROCEDURE SetCRefCon(theControl: ControlHandle; data: LONGINT);
  104.     external toolbox procedure x="$A95B" is
  105.     PROCEDURE ToolboxSetCRefCon(theControl, data);
  106.         integer theControl;
  107.         integer data;;
  108.  
  109. %    FUNCTION GetCRefCon(theControl: ControlHandle): LONGINT;
  110.     external toolbox procedure x="$A95A" is
  111.     integer procedure ToolboxGetCRefCon(theControl);
  112.         integer theControl;;
  113.  
  114. %    PROCEDURE SetCtlValue(theControl: ControlHandle; theValue: INTEGER);
  115.     external toolbox procedure x="$A963" is
  116.     PROCEDURE ToolboxSetCtlValue(theControl, theValue);
  117.         integer theControl;
  118.         short integer theValue;;
  119.  
  120. %    FUNCTION GetCtlValue(theControl: ControlHandle): INTEGER;
  121.     external toolbox procedure x="$A960" is
  122.     short integer procedure ToolboxGetCtlValue(theControl);
  123.         integer theControl;;
  124.  
  125. %    FUNCTION GetCtlMin(theControl: ControlHandle): INTEGER;
  126.     external toolbox procedure x="$A961" is
  127.     short integer procedure ToolboxGetCtlMin(theControl);
  128.         integer theControl;;
  129.  
  130. %    FUNCTION GetCtlMax(theControl: ControlHandle): INTEGER;
  131.     external toolbox procedure x="$A962" is
  132.     short integer procedure ToolboxGetCtlMax(theControl);
  133.         integer theControl;;
  134.  
  135. %    PROCEDURE SetCtlMin(theControl: ControlHandle; theValue: INTEGER);
  136.     external toolbox procedure x="$A964" is
  137.     PROCEDURE ToolboxSetCtlMin(theControl, theValue);
  138.         integer theControl;
  139.         short integer theValue;;
  140.  
  141. %    PROCEDURE SetCtlMax(theControl: ControlHandle; theValue: INTEGER);
  142.     external toolbox procedure x="$A965" is
  143.     PROCEDURE ToolboxSetCtlMax(theControl, theValue);
  144.         integer theControl;
  145.         short integer theValue;;
  146.  
  147. %    FUNCTION GetCtlAction(theControl: ControlHandle): ProcPtr;
  148.     external toolbox procedure x="$A96A" is
  149.     integer procedure ToolboxGetCtlAction(theControl);
  150.         integer theControl;;
  151.  
  152.  
  153. %    PROCEDURE SetCtlAction(theControl: ControlHandle; newProc: ProcPtr);
  154.     external toolbox procedure x="$A96B" is
  155.     PROCEDURE ToolboxSetCtlAction(theControl, newProc);
  156.             integer theControl;
  157.             integer newProc;;
  158.  
  159.  
  160. %    FUNCTION TestControl(theControl: ControlHandle; thePt: Point): INTEGER;
  161.     external toolbox procedure x="$A966" is
  162.     short integer procedure ToolboxTestControl(theControl, thePt_h, thePt_v);
  163.             integer theControl;
  164.             short integer thePt_h, thePt_v;;
  165.  
  166. %    FUNCTION TrackControl(theControl: ControlHandle; thePt: Point;
  167. %                    actionProc: ProcPtr): INTEGER;
  168.     external toolbox procedure x="$A968" is
  169.     short integer procedure ToolboxTrackControl(theControl,thePt_h,thePt_v,
  170.                     actionProc);
  171.             integer theControl;
  172.             short integer thePt_h,thePt_v;
  173.             integer actionProc;;
  174.             
  175. %    FUNCTION FindControl(thePoint: Point; theWindow: WindowPtr;
  176. %                     VAR theControl: ControlHandle): INTEGER;
  177.     external toolbox procedure x="$A96C" is
  178.     short integer procedure ToolboxFindControl(thePt_h,thePt_v, theWindow,
  179.                      theControl);
  180.             name theControl;
  181.             short integer thePt_h,thePt_v;
  182.             integer theWindow;
  183.             integer theControl;;
  184.  
  185. %    PROCEDURE DrawControls(theWindow: WindowPtr);
  186.     external toolbox procedure x="$A969" is
  187.     PROCEDURE ToolboxDrawControls(theWindow);
  188.         integer theWindow;;
  189.  
  190. %    FUNCTION GetNewControl(controlID: INTEGER; owner: WindowPtr): ControlHandle;
  191.     external toolbox procedure x="$A9BE" is
  192.     integer procedure ToolboxGetNewControl(controlID, owner);
  193.         short integer controlID;
  194.         integer owner;;
  195.         
  196. %    {new 128K ROM}
  197.  
  198. %    PROCEDURE UpdtControl(theWindow: WindowPtr; updateRgn: RgnHandle);
  199.     external toolbox procedure x="$A953" is
  200.     PROCEDURE ToolboxUpdtControl(theWindow, updateRgn);
  201.         integer theWindow;
  202.         integer updateRgn;;
  203.  
  204. %    PROCEDURE Draw1Control(theControl: ControlHandle);
  205.     external toolbox procedure x="$A96D" is
  206.     PROCEDURE ToolboxDraw1Control(theControl);
  207.             integer theControl;
  208.  
  209. end;